home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SunSoft Catalyst CDWARE 1996 May to August
/
Catalyst CDWARE 1996 May to August.iso
/
.products
/
.bin
/
httpd
/
Solaris_2
/
show.pl.bk
< prev
next >
Wrap
Text File
|
1996-02-22
|
2KB
|
77 lines
#!./perl
#req_more_info.pl
# ------------------------------------------------------------
# render dynamic page
# get args
while (@ARGV) {
$ARGV=shift;
$orig = $ARGV;
$name = $orig;
$name =~ s/=.*//g;
$param = $orig;
$param =~ s/.*=//g;
#place custome params here
if ($name eq "size") {$size = $param;}
if ($name eq "dest") {$dest = $param;}
if ($name eq "alpha") {$alpha = $param;}
}
#$dest =~ s/.$//g;
#$dest2 = $1;
#$dest = $dest#$dest2;
#for (@ARGV){s/\\//g};
# $dest = @ARGV;
# local($pquery) = join(" ", @query);
# local($nquery) = $pquery;
# $nquery =~ tr/[A-Z]/[a-z]/;
# if (!(($nquery =~ / and /) || ($nquery =~ / or /)))
# {
# $nquery =~ s/ //g;
# }
$~ = HTMLHEADER;
write STDOUT;
print "<FRAME SCROLLING=\"no\" TARGET=\"_top\" NAME=\"menu\" NORESIZE MARGINHEIGHT=4 SRC=\"file:///tmp/httpd/.products/.categories/$dest.head.html\">\n";
print "<FRAME SCROLLING=\"yes\" NAME=\"content\" NORESIZE MARGINHEIGHT=4 SRC=\"file:///tmp/httpd/.products/.categories/$dest\#$alpha\">\n";
$~ = HTMLFOOTER;
write STDOUT;
##############################################################################
format HTMLHEADER =
Content-type: text/html
<html>
<head>
<title>CDware May 1996</title>
</head>
<FRAMESET ROWS="30,80">
.
##############################################################################
format HTMLFOOTER =
<BODY BACKGROUND="icons/bkgrnds/homebg.gif" body bgcolor=black text=#ffffff link=#dddddd alink=#ffff00 vlink=#bbbbbb>
<FONT SIZE=-1>Copyright \0511995 <B><A
</BODY>
</NOFRAME>
</FRAMESET>
</HTML>
.